10 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,1:POKE53272,22
11 PRINTTAB(10)"[210][197][193][204] [211][207][213][206][196][211] [196]EMO"
20 POKE214,3:PRINT:A=10
21 PRINTTAB(A)"1 [204]IGHT & [212]HUNDER"
22 PRINTTAB(A)"2 [215]IND"
23 PRINTTAB(A)"3 [201]NSECTS"
24 PRINTTAB(A)"4 [193]UTO [200]ORN
25 [153][163]A)"5 (null)ARNING PEEKELL"
26 [153][163]A)"6 (null)TEAM VALNGINE
27 PRINTTAB(A)"7 [202]ET [208]LANE
28 [153][163]A)"8 LENHIMES
29 PRINTTAB(A)"9 [194]UZZER
30 [153][163]A)"(null) (null)UIT TO (null)(null)ATNSTR$(null)(null)ATN(null)
100 POKE198,0:WAIT198,1:GETZ$
102 Z=VAL(Z$):POKE53280,12
104 ONZGOSUB30000,30100,8300,8600,8810,9100,9200,9400,9710
110 POKE53280,0:IFZ=0THEN40000
190 GOTO100
8300 REM - FROGGY
8305 D=16:S=54272:POKES+24,15:POKES+6,0:POKES+1,100:POKES+5,2
8310 IF(PEEK(162)ANDD)=DTHENPOKES+4,33
8315 POKES+4,0:GETZ$:IFZ$=""THEN8310
8316 RETURN
8600 REM *** AUTO HORN ***
8610 S=54272
8620 FORL=0TO24:POKES+L,0:NEXT
8630 POKES+6,220
8640 POKES+20,240
8650 POKES+24,15
8660 POKES+15,21:POKES+14,50
8670 POKES+1,26:POKES,50
8680 POKES+4,33:FORX=1TO100:NEXT:POKES+18,33
8690 FORT=1TO1500:NEXT:POKES+24,0
8699 FORL=0TO24:POKES+L,0:NEXT:RETURN
8810 S=54272:FORL=0TO24:POKES+L,0:NEXT
8820 POKES+1,68:POKES+5,9:POKES+24,15
8830 FORX=1TO10:POKES+4,17:FORY=1TO500:NEXT:POKES+4,20:NEXT
8840 POKES+4,21:GETQ$:POKES+4,20:IFQ$=""THEN8840
8850 POKES+24,0:RETURN
9100 REM STEAM TRAIN
9110 POKE54296,15
9120 D=450
9130 FORA=1TO300
9140 GOSUB9180
9150 IFD=45THEN9170
9160 D=D-5
9170 NEXTA:RETURN
9180 POKE54277,64:POKE54278,48
9190 POKE54273,50:POKE54272,100
9191 POKE54276,129:FORT=1TO10:NEXTT
9192 POKE54276,128:FORT=1TOD:NEXTT
9193 RETURN
9200 REM JET AIRPLANE
9210 D=50
9220 FORA=1TO15
9230 POKE54296,A
9240 GOSUB9350:GOSUB9300
9250 NEXTA
9260 D=100
9270 FORB=1TO30
9280 GOSUB9350:GOSUB9300
9290 NEXTB:RETURN:REM TO MAIN
9300 POKE54277,15:POKE54278,15
9310 POKE54273,110+A:POKE54272,185+A
9320 POKE54276,33:FORT=1TOD:NEXTT
9330 POKE54276,32:FORT=1TO10:NEXTT
9340 RETURN
9350 POKE54284,15:POKE54285,15
9360 POKE54280,10+A:POKE54279,200+A
9370 POKE54283,129:FORT=1TOD:NEXTT
9380 POKE54283,128:FORT=1TO10:NEXTT
9390 RETURN
9400 REM **** CLOCK CHIME ****
9405 K=0
9410 S=54272:FORL=0TO24:POKES+L,0:NEXT
9420 V=S+24:W=S+4:FU=S+1:FL=S:AD=S+5:SR=S+6:SL=S+14:SU=S+15:POKEV,15:POKEAD,15
9450 POKEAD,10:POKESR,64+11
9460 POKESU,10:POKESL,10
9470 POKEFU,4:POKEW,21:FORT=1TO50:NEXT
9480 POKEW,20:FORT=1TO1800:NEXT
9485 K=K+1:IFK>5THENRETURN
9490 GOTO9450
9710 FORT=0TO30:POKE54296,15:POKE54296,0:NEXT:FORP=1TO500:NEXT:RETURN
10000 OPEN1,8,15,"I0":N$="B.REAL SOUNDS
10001 [152]1,"S0:"[170]N$:[160]1:[148]N$,8:[128]
29999 [143] LIGHT AND THUNDER
30000 [129]L[178]54272[164]54296:[151]L,0:[130]
30010 S[178]54272:[151]S[170]24,15
30020 [129]I[178]1[164]5:[151]53281,1
30030 TQ[178]TI
30032 [139]TI[179]TQ[170]4[167]30032
30040 [151]53281,0
30050 TQ[178]TI
30052 [139]TI[179]TQ[170]4[167]30052
30060 [151]53281,0:[130]
30070 [151]S[170]5,28:[151]S[170]1,40:[151]S[170]4,128:[151]S[170]4,129
30080 TQ[178]TI
30082 [139]TI[179]TQ[170]120[167]30082
30090 [151]S[170]4,0:[142]
30099 [143] WIND SOUND
30100 [129]L[178]54272[164]54296:[151]L,0:[130]
30110 S[178]54272:[151]S[170]24,15
30120 [151]S[170]5,255:[151]S[170]12,255:[151]S[170]19,255
30130 [151]S,255:[151]S[170]1,254:[151]S[170]7,98:[151]S[170]8,5:[151]S[170]14,90:[151]S[170]15,6
30140 [151]S[170]3,6:[151]S[170]2,1:[151]S[170]10,2:[151]S[170]9,12:[151]S[170]17,8:[151]S[170]16,0
30150 [151]S[170]4,129:[151]S[170]11,129:[151]S[170]18,129:[142]
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]